program main
    implicit none
    integer :: i
    open(233,file='7-2-input.dat',form='unformatted',access='sequential')
    do i=1,25,2
        write(*,*)i
        write(233)i
    end do
    close(233)
end program
